home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / dupsplf.arc / DUPSPLF.EXE / arc / DPC120.PGM next >
Text File  |  1988-01-25  |  363b  |  11 lines
  1. /*  This program will duplicate a spool file member into a different */
  2. /*  output queue.                                                    */
  3.  
  4.  PGM         PARM(&FILE &OUTQ)
  5.  
  6.              DCL        VAR(&FILE)     TYPE(*CHAR) LEN(10)
  7.              DCL        VAR(&OUTQ)     TYPE(*CHAR) LEN(10)
  8.  
  9.              DUPSPLF    FILE(&FILE) OUTQ(&OUTQ)
  10.  ENDPGM
  11.